home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / psfrag / ps2psfrag / ps2psfrag.ps < prev    next >
Text File  |  1992-09-19  |  5KB  |  165 lines
  1. %! PS-Adobe-2.0
  2. %
  3. % PostScript program for reading a .ps file and writing out a LaTeX
  4. % file that contains information about each piece of text shown by the
  5. % ps file.
  6. % 
  7. % GhostScript Usage:
  8. %
  9. %    dx dy (fileName) FragConvert
  10. %
  11. %    Reads fileName.ps and writes latex information to fileName.psfrag
  12. %    The show text coordinates are offset by dx, dy.
  13. %
  14. % Revision History:
  15. %   20-Sep-92   Craig Barratt    Released version 1.1.
  16. %   13-Sep-92   Craig Barratt    Added support for ashow, widthshow, awidthshow,
  17. %                and kshow.
  18. %   21-Jul-92   Craig Barratt    Correctly handle empty show strings.  Added
  19. %    9-Jun-92   Craig Barratt    Changed egrep to grep for system V users.
  20. %    1-Jun-92   Craig Barratt    Released version 1.0.
  21. %   23-Feb-92   Craig Barratt    Initial version.
  22. %
  23. % Send comments and bugs to Craig Barratt (craig@isl.stanford.edu)
  24. %
  25.  
  26. /fragdict 30 dict def
  27.  
  28. fragdict begin
  29.  
  30. % write a string to the output file
  31. /w { FragOutFile exch writestring } bind def
  32. % write an argument to the output file
  33. /warg { ({) w w (}) w } bind def
  34. /p { 16 string cvs print flush } def
  35. /sp { ( ) p } def
  36.  
  37. %
  38. % writes out latex information into the psfrag file for
  39. % each show operator
  40. %
  41. /FragProcessShow {
  42.     FragPass 1 eq
  43.     {
  44.     % pass 1: write out just the show string
  45.     /s exch def
  46.     % we only care about non-empty show strings
  47.     s () eq not
  48.     {
  49.         s (\\tex) anchorsearch
  50.         {
  51.         pop pop
  52.         }
  53.         {
  54.         pop
  55.         (    \\PsFragShowString) w s warg (\n) w
  56.         } ifelse
  57.     } if
  58.     }
  59.     {
  60.     % pass 2: write out psfrag info
  61.     /s exch def
  62.     % we only care about non-empty show strings
  63.     s () eq not
  64.     {
  65.         gsave
  66.         matrix currentmatrix /origMatrix exch def
  67.         currentpoint /origy exch def /origx exch def
  68.         % write out the string as the first arg
  69.         s (\\tex) anchorsearch {
  70.         % define this fragment using an empty label
  71.         pop (    \\psfrag{}) w w (\n) w
  72.         % now immediately refer to the empty label
  73.         (    \\PsFragInfo{}) w
  74.         }
  75.         {
  76.         pop (    \\PsFragInfo) w s warg
  77.         } ifelse
  78.         % write out the current point in abs coords as the next two args
  79.         initmatrix currentpoint /abslly exch def /absllx exch def
  80.         absllx FragDx add 30 string cvs warg
  81.         abslly FragDy add 30 string cvs warg
  82.         % get width, height and orientation of the string
  83.         origMatrix setmatrix
  84.         newpath 0 0 moveto s true charpath pathbbox
  85.         /ury exch def /urx exch def pop pop
  86.         origx origy moveto urx 0 rmoveto
  87.         initmatrix currentpoint /abslry exch def /abslrx exch def
  88.         origMatrix setmatrix
  89.         origx origy moveto 0 ury rmoveto
  90.         initmatrix currentpoint /absuly exch def /absulx exch def
  91.  
  92.         % write out dx and dy for the lower left to lower right vector
  93.         abslrx absllx sub 30 string cvs warg
  94.         abslry abslly sub 30 string cvs warg
  95.  
  96.         % write out dx and dy for the lower left to upper left vector
  97.         absulx absllx sub 30 string cvs warg
  98.         absuly abslly sub 30 string cvs warg
  99.  
  100.         % write out the text angle (keep it between -180 and 180,
  101.         % and round to the nearest 0.01)
  102.         abslry abslly sub abslrx absllx sub
  103.         % avoid atan(0,0): check if both numbers are zero
  104.         % (bug reported by Noel Doughty nad@phys.canterbury.ac.nz)
  105.         2 copy abs exch abs add
  106.         0 eq { pop pop 0 } { atan } ifelse
  107.         dup 360 div round 360 mul sub
  108.         100 mul round 100 div 30 string cvs warg
  109.  
  110.         % finish up
  111.         (\n) w
  112.         origMatrix setmatrix
  113.         origx origy moveto
  114.         grestore
  115.     } if
  116.     } ifelse
  117. } bind def
  118.  
  119. end
  120.  
  121. userdict begin
  122.  
  123. %
  124. % redefine all the show operators to call FragProcessShow,
  125. % and then do the normal show
  126. %
  127. /widthshow  { dup fragdict begin FragProcessShow end widthshow  } bind def
  128. /awidthshow { dup fragdict begin FragProcessShow end awidthshow } bind def
  129. /ashow      { dup fragdict begin FragProcessShow end ashow      } bind def
  130. /kshow      { dup fragdict begin FragProcessShow end kshow      } bind def
  131. /show       { dup fragdict begin FragProcessShow end show       } bind def
  132.  
  133. /FragConvert {
  134.     fragdict begin
  135.     /FragInFileName exch def
  136.     FragInFileName (frag) concatstrings (w) file /FragOutFile exch def
  137.     /FragDy exch def
  138.     /FragDx exch def
  139.     (\%\n\% File automatically generated by ps2psfrag and GhostScript.\n) w
  140.     (\% It is included by \\epsfbox or \\psfragspecial.\n) w
  141.     (\% Do not \\input directly, or edit!\n\%\n) w
  142.     (\\begin{PSFragmentLocs}\n) w
  143.     %
  144.     % I'm really lazy, so we run through the ps file twice.
  145.     % The first pass generates a list of \PsFragShowString{} calls.
  146.     % These are used by latex to check if the strings is being replaced.
  147.     % The second pass generates a list of \PsFragInfo{} calls, which
  148.     % contains complete information about each ps fragment.
  149.     %
  150.     /FragPass 1 def
  151.     gsave /FragVM save def
  152.         FragInFileName userdict begin run end
  153.     FragVM restore grestore
  154.     (    \\put(0,0){\\special{\\PsFragSpecialArgs}}\n) w
  155.     /FragPass 2 def
  156.     gsave /FragVM save def
  157.         FragInFileName userdict begin run end
  158.     FragVM restore grestore
  159.     (\\end{PSFragmentLocs}\n) w
  160.     FragOutFile closefile
  161.     end
  162. } bind def
  163.  
  164. end
  165.